selecciona(X,[X|L],L).
selecciona(X,[Y|L1],[Y|L2]):- selecciona(X,L1,L2),!.

mete_lista(X):-
        asserta(alumno(X)),
        retract(alumno([P|Resto])),
        asserta(elemento(P)),
        asserta(alumno(Resto)),
        Resto=[],retract(alumno([])).

encadena([],[],[]).
encadena([X|Resto],L,[X|Cola]):-encadena(Resto,L,Cola).
encadena([],[Y|Salida],[Y|Cola]):-encadena([],Salida,Cola).

sublista(L1,L2):-
        encadena(_L3,L4,L2), encadena(L1,_L5,L4),!.